From 152ee1967b76c8e3d87dd2583e5bef33288c5549 Mon Sep 17 00:00:00 2001 From: justbur Date: Wed, 1 Jul 2015 22:41:22 -0400 Subject: [PATCH] Add option to force buffer closed after certain amount of time --- which-key.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index 65a7bd00cb3..362491425ad 100644 --- a/which-key.el +++ b/which-key.el @@ -20,7 +20,7 @@ (defvar which-key-idle-delay 0.5 "Delay (in seconds) for which-key buffer to popup.") (defvar which-key-close-buffer-idle-delay 5 - "Delay (in seconds) for which-key buffer to show.") + "Delay (in seconds) after which buffer is forced closed.") (defvar which-key-max-description-length 30 "Truncate the description of keys to this length (adds \"..\")") @@ -150,7 +150,8 @@ replace and the cdr is the replacement text. " (if bottom-or-top (setq buffer-height (+ 2 buffer-line-breaks)) (setq buffer-width vertical-buffer-width))) - (which-key/show-buffer buffer-height buffer-width))))) + (which-key/show-buffer buffer-height buffer-width) + (run-at-time which-key-close-buffer-idle-delay nil 'which-key/hide-buffer))))) (defun which-key/setup () "Create buffer for which-key and add buffer to `popwin:special-display-config'" @@ -165,6 +166,11 @@ replace and the cdr is the replacement text. " :noselect t :position which-key-buffer-position)) +(defun which-key/hide-buffer () + "Like it says :\)" + (when (eq popwin:popup-buffer (get-buffer which-key-buffer)) + (popwin:close-popup-window))) + (defun which-key/turn-on-timer () "Activate idle timer." (setq which-key-timer -- 2.30.2